home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / PInterfaces / Devices.p < prev    next >
Encoding:
Text File  |  1989-10-13  |  2.8 KB  |  126 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Thursday, January 5, 1989 at 7:58 PM
  3.     Devices.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.     Copyright Apple Computer, Inc.     1985-1988
  7.     All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT Devices;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingDevices}
  21. {$SETC UsingDevices := 1}
  22.  
  23. {$I+}
  24. {$SETC DevicesIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingOSUtils}
  27. {$I $$Shell(PInterfaces)OSUtils.p}
  28. {$ENDC}
  29. {$IFC UNDEFINED UsingFiles}
  30. {$I $$Shell(PInterfaces)Files.p}
  31. {$ENDC}
  32. {$IFC UNDEFINED UsingQuickdraw}
  33. {$I $$Shell(PInterfaces)Quickdraw.p}
  34. {$ENDC}
  35. {$SETC UsingIncludes := DevicesIncludes}
  36.  
  37. CONST
  38. newSelMsg = 12;
  39. fillListMsg = 13;
  40. getSelMsg = 14;
  41. selectMsg = 15;
  42. deselectMsg = 16;
  43. terminateMsg = 17;
  44. buttonMsg = 19;
  45. chooserID = 1;
  46. initDev = 0;        {Time for cdev to initialize itself}
  47. hitDev = 1;         {Hit on one of my items}
  48. closeDev = 2;        {Close yourself}
  49. nulDev = 3;         {Null event}
  50. updateDev = 4;        {Update event}
  51. activDev = 5;        {Activate event}
  52. deactivDev = 6;     {Deactivate event}
  53. keyEvtDev = 7;        {Key down/auto key}
  54. macDev = 8;         {Decide whether or not to show up}
  55. undoDev = 9;
  56. cutDev = 10;
  57. copyDev = 11;
  58. pasteDev = 12;
  59. clearDev = 13;
  60. cdevGenErr = -1;    {General error; gray cdev w/o alert}
  61. cdevMemErr = 0;     {Memory shortfall; alert user please}
  62. cdevResErr = 1;     {Couldn't get a needed resource; alert}
  63. cdevUnset = 3;        { cdevValue is initialized to this}
  64.  
  65.  
  66. TYPE
  67.  
  68. DCtlPtr = ^DCtlEntry;
  69. DCtlHandle = ^DCtlPtr;
  70. DCtlEntry = RECORD
  71.     dCtlDriver: Ptr;
  72.     dCtlFlags: INTEGER;
  73.     dCtlQHdr: QHdr;
  74.     dCtlPosition: LONGINT;
  75.     dCtlStorage: Handle;
  76.     dCtlRefNum: INTEGER;
  77.     dCtlCurTicks: LONGINT;
  78.     dCtlWindow: WindowPtr;
  79.     dCtlDelay: INTEGER;
  80.     dCtlEMask: INTEGER;
  81.     dCtlMenu: INTEGER;
  82.     END;
  83.  
  84. AuxDCEPtr = ^AuxDCE;
  85. AuxDCEHandle = ^AuxDCEPtr;
  86. AuxDCE = PACKED RECORD
  87.     dCtlDriver: Ptr;
  88.     dCtlFlags: INTEGER;
  89.     dCtlQHdr: QHdr;
  90.     dCtlPosition: LONGINT;
  91.     dCtlStorage: Handle;
  92.     dCtlRefNum: INTEGER;
  93.     dCtlCurTicks: LONGINT;
  94.     dCtlWindow: GrafPtr;
  95.     dCtlDelay: INTEGER;
  96.     dCtlEMask: INTEGER;
  97.     dCtlMenu: INTEGER;
  98.     dCtlSlot: Byte;
  99.     dCtlSlotId: Byte;
  100.     dCtlDevBase: LONGINT;
  101.     dCtlOwner: Ptr;
  102.     dCtlExtDev: Byte;
  103.     fillByte: Byte;
  104.     END;
  105.  
  106.  
  107.  
  108. FUNCTION GetDCtlEntry(refNum: INTEGER): DCtlHandle;
  109. FUNCTION SetChooserAlert(f: BOOLEAN): BOOLEAN;
  110. FUNCTION OpenDriver(name: Str255;VAR drvrRefNum: INTEGER): OSErr;
  111. FUNCTION PBOpenDriver(paramBlock: ParmBlkPtr): OSErr;
  112. FUNCTION CloseDriver(refNum: INTEGER): OSErr;
  113. FUNCTION Control(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
  114. FUNCTION Status(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
  115. FUNCTION KillIO(refNum: INTEGER): OSErr;
  116. FUNCTION PBControl(paramBlock: ParmBlkPtr;aSync: BOOLEAN): OSErr;
  117. FUNCTION PBStatus(paramBlock: ParmBlkPtr;aSync: BOOLEAN): OSErr;
  118. FUNCTION PBKillIO(paramBlock: ParmBlkPtr;aSync: BOOLEAN): OSErr;
  119.  
  120. {$ENDC}    { UsingDevices }
  121.  
  122. {$IFC NOT UsingIncludes}
  123.     END.
  124. {$ENDC}
  125.  
  126.